Ì € i 2
main
[urn]
*(JA)JA.S[jas]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 8 URN L jas
cd.screen.1 15 FREE L MIS.SCREEN VAL=@PP.REF.TYPE.cust.def.screen[@type]
cost 8 MONEY R *(JA)JA.S[jas]|3
description 40 FREE L *(JA)JA.S[jas]|2
display.id 40 FREE L VAL=@number_" "_@type_" "_@description:0S
id 8 URN L PP.REF.SOURCE VAL=@PP.REF.SOURCE.number
number 8 PINT R *(JA)JA.S[jas]|0
print.cd.screen.1 0 FREE L VAL=IF{@cd.screen.1 %MIS.SCREEN.print(@cd.screen.1,^@c
VAL=ustomer.defined.fields,"",3),""}
print.cd.screen.verbatm.1 0 FREE L VAL=IF{@cd.screen.1 %MIS.SCREEN.print(@cd.screen.1,^@c
VAL=ustomer.defined.fields,1,0),""}
type 8 FREE L PP.REF.TYPE *(JA)JA.S[jas]|1
Ì € i 2
customer.defined.queries
[urn, cd.query]
*(JA)JA.S[jas]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.response 75 QRY.RESP L *(JA)JA.S[jas]CD[ggv]|0
Ì € i 2
customer.def.mult.queries
[urn,cd.query, cdm.seq.no]
*(JA)JA.S[jas]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cdm.seq.no 3 PINT R ggvN
cdm.response 75 QRY.RESP L *(JA)JA.S[jas]CD[ggv]M[ggvN]|0
Ì € i 2
openings
[urn, opening]
*(JA)JA.S[jas]P[jaa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
opening 8 PINT R PP.OPENING jaa
Index Files Subscripts/Physical Base
type.x [type,number] = urn
?(JA)JA.ST[jerf,jasN]
|
|
| | |